BBS in a Box 15/BBS in a box XV-1.iso/Files/Educ/Health-Food/RDA Info.sit/RDA Info Stack/card_3371.txt

Text File | 1994-09-03 | 11.1 KB | 459 lines

-- card: 3371 from stack: in
-- bmap block id: 3897
-- flags: 0000
-- background id: 2782
-- name:


-- part 3 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=180 top=85 right=109 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name


-- part 4 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=180 top=126 right=150 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Age


-- part 5 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=332 top=146 right=164 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Male
----- HyperTalk script -----
on mouseUp
  get the hilite of me
  set the hilite of me to not it
  set the hilite of button "Female" to it
  set the visible of button "Lactating" to it
  set the visible of button "Pregnant" to it
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=332 top=167 right=185 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Female
----- HyperTalk script -----
on mouseUp
  get the hilite of me
  set the hilite of me to not it
  set the hilite of button "Male" to it
  set the visible of button "Lactating" to not it
  set the visible of button "Pregnant" to not it
end mouseUp



-- part 7 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=321 top=197 right=219 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pregnant
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    ask "How many months pregnant?"
    if it is empty then
      set the hilite of me to false
      exit mouseUp
    end if
    if (it <= 0) or (it > 9.5) then
      beep
      answer "That doesn't make sense!"
      set the hilite of me to false
      exit mouseUp
    end if
    put it into cd field "monthsPreg"
  else
    put empty into cd field "monthsPreg"
  end if
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=321 top=225 right=249 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lactating
----- HyperTalk script -----
on mouseUp
  if the hilite of me is true then
    ask "Lactating for how many months?"
    if it is empty then
      set the hilite of me to false
      exit mouseUp
    end if
    if (it <= 0) or (it > 50) then
      beep
      answer "That doesn't make sense!"
      set the hilite of me to false
      exit mouseUp
    end if
    put it into cd field "monthsLact"
  else
    put empty into cd field "monthsLact"
  end if
end mouseUp



-- part 9 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=223 top=182 right=213 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: monthsPreg


-- part 10 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=212 top=196 right=231 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: monthsLact


-- part 11 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=180 top=164 right=188 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Weight


-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=75 top=211 right=234 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calculate RDA
----- HyperTalk script -----
on mouseUp
  put line 1 of cd field 5 into weight
  put weight into wt -- Save original value in lbs.
  put line 1 of cd field "Name" into name
  put line 1 of cd field "Age" into age
  put weight/2.21 into weight -- Convert pounds to Kg.
  put cd field 2 into age
  if the hilite of button 1 is true then
    put "Male" into sex
  else
    put "Female" into sex
  end if
  setCalories age,sex,weight
  if age  < 11 then --RDA values independent of sex
    if age  <= 0.5 then
      put line 1 of cd field 8 into dataList
      put round(weight*2.2) into item 1 of dataList
    else if age < 1 then
      put line 2 of cd field 8 into dataList
      put round(weight*2.0) into item 1 of dataList
    else if age < 4 then
      put line 3 of cd field 8 into dataList
    else if age < 7 then
      put line 4 of cd field 8 into dataList
    else
      put line 5 of cd field 8 into dataList
    end if
  else
    if sex is "Male" then
      if age < 15 then
        put line 1 of cd field 6 into dataList
      else if age < 19 then
        put line 2 of cd field 6 into dataList
      else if age < 25 then
        put line 3 of cd field 6 into dataList
      else if age < 51 then
        put line 4 of cd field 6 into dataList
      else
        put line 5 of cd field 6 into dataList
      end if
    else if the hilite of button "Lactating" is true then
      put cd field "monthsLact" into T
      if T <= 6 then
        put line 7 of cd field 7 into dataList
      else
        put line 8 of cd field 7 into dataList
      end if
      put line 2 of cd field 1 of next cd into Cal
      put Cal + 500 into line 2 of cd field 1 of next cd
    else if the hilite of button "Pregnant" is true then
      put cd field "monthsPreg" into T
      put line 2 of cd field 1 of next cd into Cal
      if T > 3 then put Cal + 300 into line 2 of cd field 1 of next cd
      put line 6 of cd field 7 into dataList
    else
      if age < 15 then
        put line 1 of cd field 7 into dataList
      else if age < 19 then
        put line 2 of cd field 7 into dataList
      else if age < 25 then
        put line 3 of cd field 7 into dataList
      else if age < 51 then
        put line 4 of cd field 7 into dataList
      else
        put line 5 of cd field 7 into dataList
      end if
    end if
  end if
  go next
  parseData dataList
  put name into cd field 9
  put age && "Years" into line 2 of cd field 9
  put wt & " Lbs" into line 3 of cd field 9
end mouseUp






-- part 13 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=42 top=56 right=257 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 14 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=79 top=84 right=285 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 15 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=93 top=116 right=317 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=25 top=299 right=331 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go prev
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=444 top=299 right=331 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go cd id 4764
end mouseUp



-- part 21 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=76 top=85 right=109 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 22 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=76 top=126 right=150 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 23 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=77 top=164 right=188 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for background part 1
----- text -----
Data Entry

-- part contents for card part 13
----- text -----
45,1200,12,270,1200,2000,500,15,"1.5-2.5*","2.0-5.0*",1000,50,1.3,1.5,17,1.7,150,2
59,1200,12,400,1200,2000,500,15,"1.5-2.5*","2.0-5.0*",1000,60,1.5,1.8,20,2,200,2
58,1200,10,350,1200,2000,500,15,"1.5-2.5*","2.0-5.0*",1000,60,1.5,1.7,19,2,200,2
63,800,10,350,800,2000,500,15,"1.5-3*","2.0-5.0*",1000,60,1.5,1.7,19,2,200,2
63,800,10,350,800,2000,500,15,"1.5-3*","2.0-5.0*",1000,60,1.2,1.4,15,2,200,2



-- part contents for card part 14
----- text -----
46,1200,15,280,1200,2000,500,12,"1.5-2.5*","2.0-5.0*",800,50,1.1,1.3,15,1.4,150,2
44,1200,15,300,1200,2000,500,12,"1.5-2.5*","2.0-5.0*",800,60,1.1,1.3,15,1.5,180,2
46,1200,15,280,1200,2000,500,12,"1.5-2.5*","2.0-5.0*",800,60,1.1,1.3,15,1.6,180,2
50,800,15,280,800,2000,500,12,"1.5-3.0*","2.0-5.0*",800,60,1.1,1.3,15,1.6,180,2
50,800,10,280,800,2000,500,12,"1.5-3.0*","2.0-5.0*",800,60,1.0,1.2,13,1.6,180,2
60,1200,30,320,1200,2000,500,15,"1.5-3.0*","2.0-5.0*",800,70,1.5,1.6,17,2.2,400,2.2
65,1200,15,355,1200,2000,500,19,"1.5-3.0*","2.0-5.0*",1300,95,1.6,1.8,20,2.1,280,2.6
62,1200,15,340,1200,2000,500,16,"1.5-3.0*","2.0-5.0*",1200,90,1.6,1.7,20,2.1,260,2.6




-- part contents for card part 15
----- text -----
13,400,6,40,300,500,120,5,"0.4-0.6*","0.3-0.6*",375,30,0.3,0.4,5,0.3,25,0.3
14,600,10,60,500,700,200,5,"0.6-0.7*","0.6-1.0*",375,35,0.4,0.5,6,0.6,35,0.5
16,800,10,80,800,1000,225,10,"0.7-1.0*","1.0-1.5*",400,40,0.7,0.8,9,1.0,50,0.7
24,800,10,120,800,1400,300,10,"1.0-1.5*","1.5-2.0*",500,45,0.9,1.1,12,1.1,75,1.0
28,800,10,170,800,1600,400,10,"1.0-2.0*","2.0-3.0*",700,45,1.0,1.2,13,1.4,100,1.4





-- part contents for card part 21
----- text -----
Name:

-- part contents for card part 22
----- text -----
Age (yrs):

-- part contents for card part 23
----- text -----
Weight (lbs):